/ 64'er Special 35 / 64er_Magazin_Sonderheft_35_19xx_Markt__Technik_de.d64 / listing 5

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| d8 1f e6 1f 64 00 2e 4c | 49 20 31 2c 33 2c 30 00 |....d..L|I 1,3,0.|
|00000010| ec 1f 6e 00 3b 00 06 20 | 78 00 3b 20 44 52 55 43 |..n.;.. |x.; DRUC|
|00000020| 4b 45 52 2d 41 55 53 47 | 41 42 45 20 4d 49 54 00 |KER-AUSG|ABE MIT.|
|00000030| 1f 20 82 00 3b 20 44 45 | 52 20 53 54 52 4f 55 54 |. ..; DE|R STROUT|
|00000040| 2d 52 4f 55 54 49 4e 45 | 00 25 20 8c 00 3b 00 3c |-ROUTINE|.% ..;.<|
|00000050| 20 96 00 2e 47 4c 20 53 | 54 52 4f 55 54 20 3d 20 | ...GL S|TROUT = |
|00000060| 24 41 42 31 45 00 63 20 | a0 00 2e 47 4c 20 53 45 |$AB1E.c |...GL SE|
|00000070| 54 4e 41 4d 20 3d 20 24 | 46 46 42 44 20 3b 20 44 |TNAM = $|FFBD ; D|
|00000080| 49 45 20 42 45 44 45 55 | 54 55 4e 47 00 8c 20 aa |IE BEDEU|TUNG.. .|
|00000090| 00 2e 47 4c 20 53 45 54 | 4c 46 53 20 3d 20 24 46 |..GL SET|LFS = $F|
|000000a0| 46 42 41 20 3b 20 44 49 | 45 53 45 52 20 52 4f 55 |FBA ; DI|ESER ROU|
|000000b0| 54 49 4e 45 4e 00 b3 20 | b4 00 2e 47 4c 20 4f 50 |TINEN.. |...GL OP|
|000000c0| 45 4e 20 20 20 3d 20 24 | 46 46 43 30 20 3b 20 45 |EN   = $|FFC0 ; E|
|000000d0| 4e 54 4e 45 48 4d 45 4e | 20 53 49 45 00 db 20 be |NTNEHMEN| SIE.. .|
|000000e0| 00 2e 47 4c 20 43 48 4b | 4f 55 54 20 3d 20 24 46 |..GL CHK|OUT = $F|
|000000f0| 46 43 39 20 3b 20 42 49 | 54 54 45 20 44 45 4d 20 |FC9 ; BI|TTE DEM |
|00000100| 4b 55 52 53 00 03 21 c8 | 00 2e 47 4c 20 43 4c 52 |KURS..!.|..GL CLR|
|00000110| 43 48 4e 20 3d 20 24 46 | 46 43 43 20 3b 20 22 41 |CHN = $F|FCC ; "A|
|00000120| 53 53 45 4d 42 4c 45 52 | 20 49 53 54 00 2c 21 d2 |SSEMBLER| IST.,!.|
|00000130| 00 2e 47 4c 20 43 4c 4f | 53 45 20 20 3d 20 24 46 |..GL CLO|SE  = $F|
|00000140| 46 43 33 20 3b 20 4b 45 | 49 4e 45 20 41 4c 43 48 |FC3 ; KE|INE ALCH|
|00000150| 49 4d 49 45 22 00 32 21 | dc 00 3b 00 4a 21 e6 00 |IMIE".2!|..;.J!..|
|00000160| 2e 4d 41 20 50 52 49 4e | 54 20 28 41 44 52 45 53 |.MA PRIN|T (ADRES|
|00000170| 53 45 29 00 5e 21 f0 00 | 20 4c 44 41 23 3c 28 41 |SE).^!..| LDA#<(A|
|00000180| 44 52 45 53 53 45 29 00 | 72 21 fa 00 20 4c 44 59 |DRESSE).|r!.. LDY|
|00000190| 23 3e 28 41 44 52 45 53 | 53 45 29 00 81 21 04 01 |#>(ADRES|SE)..!..|
|000001a0| 20 4a 53 52 53 54 52 4f | 55 54 00 89 21 0e 01 2e | JSRSTRO|UT..!...|
|000001b0| 52 54 00 8f 21 18 01 3b | 00 b0 21 22 01 2e 42 41 |RT..!..;|..!"..BA|
|000001c0| 20 24 43 30 30 30 20 3b | 20 53 54 41 52 54 3a 20 | $C000 ;| START: |
|000001d0| 53 59 53 20 34 39 31 35 | 32 00 b6 21 2c 01 3b 00 |SYS 4915|2..!,.;.|
|000001e0| c9 21 36 01 20 4c 44 41 | 23 30 3b 20 4b 45 49 4e |.!6. LDA|#0; KEIN|
|000001f0| 45 4e 00 e3 21 40 01 20 | 4a 53 52 53 45 54 4e 41 |EN..!@. |JSRSETNA|
|00000200| 4d 3b 20 46 49 4c 45 4e | 41 4d 45 4e 00 e9 21 4a |M; FILEN|AMEN..!J|
|00000210| 01 3b 00 08 22 54 01 20 | 4c 44 41 23 34 3b 20 4c |.;.."T. |LDA#4; L|
|00000220| 4f 47 2e 20 46 49 4c 45 | 4e 55 4d 4d 45 52 20 3d |OG. FILE|NUMMER =|
|00000230| 34 00 23 22 5e 01 20 54 | 41 58 3b 20 47 45 52 41 |4.#"^. T|AX; GERA|
|00000240| 45 54 45 41 44 52 45 53 | 53 45 20 34 00 42 22 68 |ETEADRES|SE 4.B"h|
|00000250| 01 20 4c 44 59 23 30 3b | 20 53 45 4b 55 4e 44 41 |. LDY#0;| SEKUNDA|
|00000260| 45 52 41 44 52 45 53 53 | 45 20 30 00 63 22 72 01 |ERADRESS|E 0.c"r.|
|00000270| 20 4a 53 52 53 45 54 4c | 46 53 3b 20 50 41 52 41 | JSRSETL|FS; PARA|
|00000280| 4d 45 54 45 52 20 53 45 | 54 5a 45 4e 00 69 22 7c |METER SE|TZEN.i"||
|00000290| 01 3b 00 84 22 86 01 20 | 4a 53 52 4f 50 45 4e 3b |.;..".. |JSROPEN;|
|000002a0| 20 46 49 4c 45 20 4f 45 | 46 46 4e 45 4e 00 8a 22 | FILE OE|FFNEN.."|
|000002b0| 90 01 3b 00 a3 22 9a 01 | 20 4c 44 58 23 34 3b 20 |..;.."..| LDX#4; |
|000002c0| 46 49 4c 45 4e 55 4d 4d | 45 52 20 34 00 ce 22 a4 |FILENUMM|ER 4..".|
|000002d0| 01 20 4a 53 52 43 48 4b | 4f 55 54 3b 20 41 55 53 |. JSRCHK|OUT; AUS|
|000002e0| 47 41 42 45 20 41 55 46 | 20 44 52 55 43 4b 45 52 |GABE AUF| DRUCKER|
|000002f0| 20 4c 45 4e 4b 45 4e 00 | d4 22 ae 01 3b 00 f8 22 | LENKEN.|."..;.."|
|00000300| b8 01 2e 2e 2e 50 52 49 | 4e 54 20 28 54 45 58 54 |.....PRI|NT (TEXT|
|00000310| 29 20 3b 20 54 45 58 54 | 20 41 55 53 47 45 42 45 |) ; TEXT| AUSGEBE|
|00000320| 4e 00 fe 22 c2 01 3b 00 | 27 23 cc 01 20 4a 53 52 |N.."..;.|'#.. JSR|
|00000330| 43 4c 52 43 48 4e 3b 20 | 57 49 45 44 45 52 20 42 |CLRCHN; |WIEDER B|
|00000340| 49 4c 44 53 43 48 49 52 | 4d 41 55 53 47 41 42 45 |ILDSCHIR|MAUSGABE|
|00000350| 00 2d 23 d6 01 3b 00 58 | 23 e0 01 2e 2e 2e 50 52 |.-#..;.X|#.....PR|
|00000360| 49 4e 54 20 28 54 45 58 | 54 29 20 3b 20 4a 45 54 |INT (TEX|T) ; JET|
|00000370| 5a 54 20 41 55 46 20 42 | 49 4c 44 53 43 48 49 52 |ZT AUF B|ILDSCHIR|
|00000380| 4d 00 5e 23 ea 01 3b 00 | 7c 23 f4 01 20 4c 44 41 |M.^#..;.||#.. LDA|
|00000390| 23 34 3b 20 4c 4f 47 2e | 20 46 49 4c 45 4e 55 4d |#4; LOG.| FILENUM|
|000003a0| 4d 45 52 20 34 00 9b 23 | fe 01 20 4a 4d 50 43 4c |MER 4..#|.. JMPCL|
|000003b0| 4f 53 45 3b 20 46 49 4c | 45 20 53 43 48 4c 49 45 |OSE; FIL|E SCHLIE|
|000003c0| 53 53 45 4e 00 b4 23 08 | 02 3b 20 26 20 50 52 4f |SSEN..#.|.; & PRO|
|000003d0| 47 52 41 4d 4d 20 42 45 | 45 4e 44 45 4e 00 ba 23 |GRAMM BE|ENDEN..#|
|000003e0| 12 02 3b 00 dd 23 1c 02 | 54 45 58 54 20 2e 54 58 |..;..#..|TEXT .TX|
|000003f0| 22 44 49 45 53 45 52 20 | 54 45 58 54 20 57 49 52 |"DIESER |TEXT WIR|
|00000400| 44 20 41 55 46 22 00 01 | 24 26 02 2e 54 58 20 22 |D AUF"..|$&..TX "|
|00000410| 20 44 45 4e 20 44 52 55 | 43 4b 45 52 20 41 55 53 | DEN DRU|CKER AUS|
|00000420| 47 45 47 45 42 45 4e 20 | 21 22 00 25 24 30 02 2e |GEGEBEN |!".%$0..|
|00000430| 42 59 20 31 33 2c 31 33 | 2c 31 33 2c 30 20 3b 20 |BY 13,13|,13,0 ; |
|00000440| 33 20 2a 20 43 41 52 2e | 52 45 54 55 52 4e 00 00 |3 * CAR.|RETURN..|
|00000450| 00                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+